home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8157 < prev    next >
Encoding:
Text File  |  1996-09-10  |  2.4 KB  |  169 lines
  1. %%BeginFile: lw8_bitmapfont-2.0
  2. /$n F def
  3. /CharData Z
  4. /CharTable Z
  5. /Gnormsize Z
  6. /Gkernmax Z
  7. /Gdescent Z
  8. /rowbytes Z
  9. /bitwidth Z
  10. /bitheight Z
  11. /dx Z
  12. /XOffset Z
  13. /YOffset Z
  14. /width Z
  15. level2 startnoload
  16. /xSmt Z
  17. /ySmt Z
  18. /str Z
  19. /str1 Z
  20. /wb Z
  21. /:s
  22. {
  23. $n
  24. userdict/sc_smooth known and
  25. vmstatus pop exch pop bitwidth 3 mul sub 1000 gt and
  26. bitwidth 4 mul 7 add 8 idiv 4 mul 65535 le and
  27. bitwidth 0 ne and
  28. bitheight 0 ne and
  29. {
  30. /xSmt bitwidth 4 mul store
  31. /ySmt bitheight 4 mul store
  32. /str CharData dx get store
  33. /wb bitwidth 7 add 8 idiv store
  34. /str1 wb string store
  35. xSmt
  36. ySmt
  37. T
  38. bitwidth
  39. bitheight
  40. str1
  41. wb 4 mul string
  42. bitwidth 4 mul 7 add 8 idiv 4 mul string
  43. T
  44. F
  45. sc_initsmooth
  46. [xSmt 0 0 ySmt neg 0 ySmt]
  47. {
  48. str 0 wb getinterval str1 copy
  49. sc_smooth
  50. {
  51. /str str wb str length wb sub getinterval store
  52. }if
  53. }
  54. dup exec pop dup exec pop
  55. }{
  56. bitwidth
  57. bitheight
  58. T
  59. [
  60. bitwidth 0 0 bitheight neg 0 bitheight
  61. ]
  62. {
  63. CharData dx get
  64. }
  65. }ifelse
  66. }bd
  67. level2 endnoload level2 not startnoload
  68. /Width Z
  69. /Height Z
  70. /bitfontdict
  71. 9 dict begin
  72. /ImageType 1 def
  73. /MultipleDataSource F def
  74. /Decode[1 0]def
  75. /DataSource{CharData dx get}bd
  76. /BitsPerComponent 1 def
  77. currentdict
  78. end
  79. def
  80. /:s
  81. {
  82. bitfontdict begin
  83. /Width bitwidth def
  84. /Height bitheight def
  85. /ImageMatrix[Width 0 0 Height neg 0 Height]def
  86. /Interpolate $n def
  87. currentdict
  88. end
  89. }bd
  90. level2 not endnoload
  91. /BMEncoding MacEncoding dup length array copy def
  92. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  93. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  94. BMEncoding 0 32 getinterval astore pop
  95. BMEncoding 202/blank put
  96. /:bbf
  97. {
  98. 13 dict begin
  99. /MFontType 0 def
  100. /CharTable xdf
  101. array/CharData xdf
  102. .96 exch div
  103. /Gnormsize xdf
  104. 2 index
  105. /Gkernmax xdf
  106. 1 index
  107. /Gdescent xdf
  108. 3 index div
  109. 4 1 roll
  110. 2 index div
  111. 1. 5 2 roll
  112. exch div
  113. 4 1 roll
  114. 4 array
  115. astore
  116. /FontBBox xdf
  117. /FontType 3 def
  118. /FontMatrix[1 0 0 1 0 0]def
  119. /Encoding BMEncoding def
  120. /BuildChar
  121. {
  122. exch begin
  123. sD begin
  124. /dx xdf
  125. save
  126. CharTable dx 6 mul
  127. 6 getinterval{}forall
  128. /bitheight xdf
  129. /bitwidth xdf
  130. .96 div
  131. /width xdf
  132. Gkernmax add
  133. /XOffset xdf
  134. Gdescent add
  135. /YOffset xdf
  136. /rowbytes xdf
  137. rowbytes 255 eq
  138. {
  139. 0 0 0 0 0 0 setcachedevice
  140. }
  141. {
  142. Gnormsize dup scale
  143. width 0 XOffset YOffset bitwidth
  144. XOffset add bitheight YOffset add
  145. setcachedevice
  146. rowbytes 0 ne bitheight 0 ne and
  147. {
  148. XOffset YOffset :T np 0 0 :M
  149. bitwidth bitheight scale
  150. :s
  151. imagemask
  152. }if
  153. }ifelse
  154. restore
  155. end
  156. end
  157. }def
  158. CharData dup
  159. }bd
  160. /:ebf
  161. {
  162. /FontName xdf
  163. pop pop
  164. FontName currentdict end definefont :ff
  165. md/rename known{dup/FontName get rename}if
  166. def
  167. }bd
  168. %%EndFile
  169.